

****** Rights and Duties  ****** 

use "Data_Duties_Master.dta", clear


****** Figure 5A: Rights and Duties - 2017  ****** 

unique country if duties_total!=. & rights_total!=. & year==2017 & intl_state_system ==1

corr duties_total  rights_total if duties_total!=. & rights_total!=. & year==2017 

reg duties_total  rights_total if duties_total!=. & rights_total!=. & year==2017 

binscatter  duties_total  rights_total if duties_total!=. & rights_total!=. & year==2017 ,  n(20)  msymbol(O) mcolors(orange) lcolors(orange) ///
	ytitle("# of Duties", size(medium)) ///
	xtitle("# of Rights", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(20)80 ) ylabel(0(2)10) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	

graph export "Figure_5A.pdf", replace

	
****** Figure 5B: Rights and Duties - All Years  ****** 

tab year if duties_total!=. & rights_total!=.

corr duties_total  rights_total if duties_total!=. & rights_total!=.

reg duties_total  rights_total if duties_total!=. & rights_total!=. 

binscatter  duties_total  rights_total if duties_total!=. & rights_total!=.,  n(20)  msymbol(O) mcolors(purple) lcolors(purple) ///
	ytitle("# of Duties", size(medium)) ///
	xtitle("# of Rights", size(medium)) ///
	xsize(1) ysize(1) legend(off) xlabel(0(20)80 ) ylabel(0(2)10) ///
	scheme(s1mono) yscale(noextend) xscale(	noextend)plotregion(style(none)) 	

graph export "Figure_5B.pdf", replace
